home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / sbin / syslogd-listfiles < prev    next >
Encoding:
Text File  |  2009-01-23  |  3.6 KB  |  142 lines
  1. #! /usr/bin/perl
  2.  
  3. # Copyright (c) 1997-9,2001,3,7-8 by Martin Schulze <joey@infodrom.org>
  4.  
  5. # This program is free software; you can redistribute it and/or modify
  6. # it under the terms of the GNU General Public License as published by
  7. # the Free Software Foundation; either version 2 of the License, or
  8. # (at your option) any later version.
  9. # 
  10. # This program is distributed in the hope that it will be useful,
  11. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13. # GNU General Public License for more details.
  14. # 
  15. # You should have received a copy of the GNU General Public License
  16. # along with this program; if not, write to the Free Software
  17. # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111, USA.
  18.  
  19. use strict;
  20. use warnings;
  21. use Getopt::Long;
  22.  
  23. my $conf = "/etc/syslog.conf";
  24. my $opt_daily = 1;
  25. my $opt_all = 0;
  26. my $opt_auth = 0;
  27. my $opt_ign_size = 0;
  28. my $opt_news = 0;
  29. my $opt_skip = '';
  30. my $opt_large = 1024*1024;
  31.  
  32. sub usage
  33. {
  34.     print STDERR
  35. "
  36. Debian GNU/Linux syslogd-listfiles.  Copyright (c) 1997-9,2001,3,7-8
  37. Martin Schulze.  This is free software; see the GNU General Public Licence
  38. version 2 or later for copying conditions.  There is NO warranty.
  39.  
  40. Usage: syslogd-listfiles <options>
  41. Options: -f file    specifies another syslog.conf file
  42.          -a | --all    list all files (including news)
  43.          --auth        list all files containing auth.<some prio>
  44.      --ignore-size  don't rotate files which got too large
  45.          --large nnn    define what is large in bytes (default: 1MB)
  46.          --news        include news logfiles, too
  47.          -w | --weekly    use weekly pattern instead of daily
  48.          -s pattern    skip files matching pattern
  49. ";
  50.     exit 0;
  51. }
  52.  
  53. # Test if the file was already rotated within the last n hours
  54. # with n=5
  55. #
  56. sub rotated
  57. {
  58.     my $file = shift;
  59.     my $nfile;
  60.     my $delta = 5 * 60 * 60;
  61.     my $now = time();
  62.     
  63.     # /var/log/file -> /var/log/file.0
  64.     $nfile = $file . ".0";
  65.     if (-r $nfile) {
  66.     if (($now - (stat $nfile)[9]) > $delta) {
  67.         return 0;
  68.     } else {
  69.         return 1;
  70.     }
  71.     }
  72.  
  73.     # /var/log/file -> /var/log/OLD/file.0
  74.     $nfile =~ s,(.*)/([^/]+),$1/OLD/$2,;
  75.     if (-r $nfile) {
  76.     if (($now - (stat $nfile)[9]) > $delta) {
  77.         return 0;
  78.     } else {
  79.         return 1;
  80.     }
  81.     }
  82.  
  83.     return 0;
  84. }
  85.  
  86. GetOptions('config|f=s' => \$conf,
  87.        'skip=s' => \$opt_skip,
  88.        'large=i' => \$opt_large,
  89.        'weekly' => sub { $opt_daily = 0; },
  90.        'all|a' => \$opt_all,
  91.        'auth' => \$opt_auth,
  92.        'ignore-size' => \$opt_ign_size,
  93.        'news' => \$opt_news,
  94.        'help' => \&usage) or usage();
  95.  
  96. open (C, $conf) || die "Can't open $conf, $!";
  97. my $line = '';
  98. my @lines;
  99. while (<C>) {
  100.     next if (/^(\#|$)/);
  101.     chomp;
  102.  
  103.     s/\s*(\S.*)$/$1/ if ($line);
  104.  
  105.     $line .= $_;
  106.     chop ($line) if (/\\$/);
  107.     if (!/\\$/) {
  108.     $line =~ s/\s+/\t/;
  109.     $line =~ s/\t-/\t/;
  110.     push (@lines, $line) if ($line =~ /\t\/(?!dev\/)/);
  111.     $line = "";
  112.     }
  113. }
  114. close (C);
  115.  
  116. my %output;
  117. foreach my $line (@lines) {
  118.     my ($pat,$file) = split (/\t/,$line);
  119.  
  120.     # These files are handled by news.daily from INN, so we ignore them
  121.     next if (!$opt_news &&!$opt_all && ($pat =~ /news\.(\*|crit|err|info|notice)/));
  122.  
  123.     if ($opt_all) {
  124.     $output{$file} = 1;
  125.     } elsif ($opt_auth) {
  126.     $output{$file} = 1 if ($pat =~ /auth[^\.]*\.(?!none).*/);
  127.     } else {
  128.     my $everything = ($pat =~ /\*\.\*/);
  129.     $output{$file} = 1 if (($everything && $opt_daily)
  130.                    || (!$everything && !$opt_daily && !rotated ($file))
  131.                    || (!$opt_ign_size && ((stat $file)[7] >= $opt_large) && $opt_daily)
  132.                    );
  133.     }
  134. }
  135.  
  136. foreach my $file (keys (%output)) {
  137.     my $skip = $file;
  138.     if (!length($opt_skip) ||  $skip !~ /$opt_skip/) {
  139.     printf "%s\n", $file;
  140.     }
  141. }
  142.